VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSong 
   Caption         =   "Song Properties"
   ClientHeight    =   6870
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   8460
   OleObjectBlob   =   "frmSong.frx":0000
   ShowModal       =   0   'False
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmSong"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cmdOutput_Click()

    Selection.Font.Size = 7
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Italic = True
    
    Selection.TypeText Text:="Capo:"
    If frmSong.txtCapo.Text = "" Then
        Selection.TypeText Text:="?"

    Else
        Selection.TypeText Text:=frmSong.txtCapo
    End If
    
    Selection.TypeText Text:=" ("
    If (frmSong.txtRefKey.Text = "") Or (frmSong.txtRefKey.Text = "?") Then
        Selection.TypeText ("?")
    Else
        Selection.TypeText (modTranspose.fnChangeNote(frmSong.txtRefKey.Text))
    End If
    
    Selection.TypeText Text:=") "
    If frmSong.txtRefNote.Text = "" Then
        Selection.TypeText ("?")
    Else
        Selection.TypeText (modTranspose.fnChangeNote(frmSong.txtRefNote.Text))
    End If
    
    If Not (frmSong.txt1or2.Text = "") Then
        Selection.TypeText (frmSong.txt1or2.Text)
    End If
    
       
    Selection.TypeText Text:=" Tempo:"
    If frmSong.txtTempo.Text = "" Then
        Selection.TypeText ("?")
    Else
        Selection.TypeText (frmSong.txtTempo.Text)
    End If

    Selection.TypeText Text:=" "
    Selection.Font.AllCaps = True
    If frmSong.txtAlias.Text = "" Then
        Selection.TypeText ("?")
    Else
        Selection.TypeText (frmSong.txtAlias.Text)
    End If
    Selection.Font.AllCaps = False
    

    Selection.TypeText Text:="."
    If frmSong.cmbType.Text = "Song" Then
        Selection.TypeText ("sng")
    ElseIf frmSong.cmbType.Text = "Spiritual Song" Then
        Selection.TypeText ("spr")
    ElseIf frmSong.cmbType.Text = "Hymn" Then
        Selection.TypeText ("hym")
    Else
        Selection.TypeText ("?")
    End If
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.Range.Case = wdLowerCase
    Selection.MoveRight Unit:=wdWord, Count:=1

    Selection.TypeText Text:=" "
    Selection.Font.Size = 6
    If frmSong.txtAuthors.Text = "" Then
        Selection.TypeText ("?")
    Else
        Selection.TypeText (frmSong.txtAuthors.Text)
    End If
    Dim intLength As Integer
    intLength = Len(frmSong.txtAuthors.Text)
    Selection.MoveLeft Unit:=wdCharacter, Count:=intLength, Extend:=wdExtend
    Selection.Range.Case = wdTitleWord
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    
    Selection.TypeText Text:=" "
    Selection.InsertSymbol (169)
    Selection.TypeText (" ")

    If frmSong.txtYear.Text = "" Then
        Selection.TypeText ("?")
    Else
        Selection.TypeText (frmSong.txtYear.Text)
    End If
    
    Selection.TypeText (" ")
    
    If frmSong.txtCompany.Text = "" Then
        Selection.TypeText ("?")
    Else
        Selection.TypeText (frmSong.txtCompany.Text)
    End If

    intLength = Len(frmSong.txtCompany.Text)
    Selection.MoveLeft Unit:=wdCharacter, Count:=intLength, Extend:=wdExtend
    Selection.Range.Case = wdTitleWord
    Selection.MoveRight Unit:=wdCharacter, Count:=1


    Selection.TypeText (", Scripture: ")
    Selection.Font.Size = 7
    Selection.TypeText (frmSong.txtScripture.Text)

    frmSong.Hide

End Sub

Private Sub UserForm_Click()

End Sub
